home *** CD-ROM | disk | FTP | other *** search
- Path: uunet!lll-winken!ames!vsi1!wyse!mikew
- From: mikew@wyse.wyse.com (Mike Wexler)
- Newsgroups: comp.sources.x
- Subject: v03i027: Ardent Window Manager, Patchlevel 9, Part11/12
- Message-ID: <2077@wyse.wyse.com>
- Date: 21 Feb 89 18:17:50 GMT
- Organization: Wyse Technology, San Jose
- Lines: 1615
- Approved: mikew@wyse.com
-
- Submitted-by: kmw@ardent (Ken Wallich)
- Posting-number: Volume 3, Issue 27
- Archive-name: awm2/part11
-
- #! /bin/sh
- # This is a shell archive. Remove anything before this line, then unpack
- # it by saving it into a file and typing "sh file". To overwrite existing
- # files, type "sh file -c". You can also feed this as standard input via
- # unshar, or by typing "sh <file", e.g.. If this archive is complete, you
- # will see the following message at the end:
- # "End of archive 11 (of 12)."
- # Contents: Beep.c CircleDown.c CircleUp.c Imakefile Lower.c XError.c
- # bitmaps/hilite.bm bitmaps/twm.focus.bm bitmaps/twm.hilite.bm
- # bitmaps/twm.iconify.bm bitmaps/twm.pull.bm bitmaps/twm.resize.bm
- # bitmaps/twm.twm.bm errHndlr.c lex.l menus/eventstack.c
- # menus/null_icon.h menus/rtlmenu.h menus/std_defs.h support.c
- # twm.Xdefaults
- # Wrapped by mikew@wyse on Fri Feb 17 10:50:35 1989
- PATH=/bin:/usr/bin:/usr/ucb ; export PATH
- if test -f 'Beep.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'Beep.c'\"
- else
- echo shar: Extracting \"'Beep.c'\" \(2539 characters\)
- sed "s/^X//" >'Beep.c' <<'END_OF_FILE'
- X
- X
- X
- X#ifndef lint
- Xstatic char *rcsid_Beep_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/Beep.c,v 1.2 89/02/07 20:03:02 jkh Exp $";
- X#endif lint
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Digital Equipment
- X * Corporation not be used in advertising or publicity pertaining to
- X * distribution of the software without specific, written prior permission.
- X *
- X *
- X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- X * SOFTWARE.
- X */
- X
- X
- X
- X/*
- X * MODIFICATION HISTORY
- X *
- X * 000 -- M. Gancarz, DEC Ultrix Engineering Group
- X */
- X
- X#ifndef lint
- Xstatic char *sccsid = "@(#)Beep.c 3.8 1/24/86";
- X#endif
- X
- X#include "awm.h"
- X
- X/*ARGSUSED*/
- XBoolean Beep(window, mask, button, x, y)
- XWindow window; /* Event window. */
- Xint mask; /* Button/key mask. */
- Xint button; /* Button event detail. */
- Xint x, y; /* Event mouse position. */
- X{
- X Entry("Beep")
- X
- X XBell(dpy, VOLUME_PERCENTAGE(Volume));
- X Leave(FALSE)
- X}
- END_OF_FILE
- if test 2539 -ne `wc -c <'Beep.c'`; then
- echo shar: \"'Beep.c'\" unpacked with wrong size!
- fi
- # end of 'Beep.c'
- fi
- if test -f 'CircleDown.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'CircleDown.c'\"
- else
- echo shar: Extracting \"'CircleDown.c'\" \(2689 characters\)
- sed "s/^X//" >'CircleDown.c' <<'END_OF_FILE'
- X
- X
- X
- X#ifndef lint
- Xstatic char *rcsid_CircleDown_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/CircleDown.c,v 1.2 89/02/07 20:04:31 jkh Exp $";
- X#endif lint
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Digital Equipment
- X * Corporation not be used in advertising or publicity pertaining to
- X * distribution of the software without specific, written prior permission.
- X *
- X *
- X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- X * SOFTWARE.
- X */
- X
- X
- X
- X/*
- X * MODIFICATION HISTORY
- X *
- X * 000 -- M. Gancarz, DEC Ultrix Engineering Group
- X * 001 -- Loretta Guarino Reid, DEC Ultrix Engineering Group,
- X Western Software Lab. Converted to X11.
- X */
- X
- X#ifndef lint
- Xstatic char *sccsid = "@(#)CircleDown.c 3.8 1/24/86";
- X#endif
- X
- X#include "awm.h"
- X
- X/*ARGSUSED*/
- XBoolean CircleDown(window, mask, button, x, y)
- XWindow window; /* Event window. */
- Xint mask; /* Button/key mask. */
- Xint button; /* Button event detail. */
- Xint x, y; /* Event mouse position. */
- X{
- X Entry("CircleDown")
- X
- X XCirculateSubwindowsDown(dpy, RootWindow(dpy, scr));
- X Leave(FALSE)
- X}
- END_OF_FILE
- if test 2689 -ne `wc -c <'CircleDown.c'`; then
- echo shar: \"'CircleDown.c'\" unpacked with wrong size!
- fi
- # end of 'CircleDown.c'
- fi
- if test -f 'CircleUp.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'CircleUp.c'\"
- else
- echo shar: Extracting \"'CircleUp.c'\" \(2671 characters\)
- sed "s/^X//" >'CircleUp.c' <<'END_OF_FILE'
- X
- X
- X
- X#ifndef lint
- Xstatic char *rcsid_CircleUp_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/CircleUp.c,v 1.2 89/02/07 20:04:35 jkh Exp $";
- X#endif lint
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Digital Equipment
- X * Corporation not be used in advertising or publicity pertaining to
- X * distribution of the software without specific, written prior permission.
- X *
- X *
- X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- X * SOFTWARE.
- X */
- X
- X
- X
- X/*
- X * MODIFICATION HISTORY
- X *
- X * 000 -- M. Gancarz, DEC Ultrix Engineering Group
- X * 001 -- Loretta Guarino Reid, DEC Ultrix Engineering Group,
- X Western Software Lab. Converted to X11.
- X */
- X
- X#ifndef lint
- Xstatic char *sccsid = "@(#)CircleUp.c 3.8 1/24/86";
- X#endif
- X
- X#include "awm.h"
- X
- X/*ARGSUSED*/
- XBoolean CircleUp(window, mask, button, x, y)
- XWindow window; /* Event window. */
- Xint mask; /* Button/key mask. */
- Xint button; /* Button event detail. */
- Xint x, y; /* Event mouse position. */
- X{
- X Entry("CircleUp")
- X
- X XCirculateSubwindowsUp(dpy, RootWindow(dpy, scr));
- X Leave(FALSE)
- X}
- END_OF_FILE
- if test 2671 -ne `wc -c <'CircleUp.c'`; then
- echo shar: \"'CircleUp.c'\" unpacked with wrong size!
- fi
- # end of 'CircleUp.c'
- fi
- if test -f 'Imakefile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'Imakefile'\"
- else
- echo shar: Extracting \"'Imakefile'\" \(2988 characters\)
- sed "s/^X//" >'Imakefile' <<'END_OF_FILE'
- X MENU_LIB = menus
- X MENU_ARCH = $(MENU_LIB)/rtlmenu.a
- X NEATEN_LIB = /grgr/neaten
- X NEATEN_ARCH = $(NEATEN_LIB)/neaten.a
- X SYS_LIBRARIES = -ll -lm
- X OTHERSRCS = gram.y lex.l
- X YFLAGS = -d
- X HFILES = awm.h neaten.def.h neaten.ext.h support.h
- X
- X# The following defines can be added to the approprate DEFINES macro
- X# (see below) to enable additional features.
- X#
- X# -DCONSOLE if you want output (stderr and stdout) to go to the system console.
- X#
- X# -DWMSTATE if you want the XA_WM_STATE atom to reflect the state of each
- X# top-level window (I.E. iconified, not iconified, etc).
- X#
- X# -DRAINBOW if you want to be able to specify border colors on a client or
- X# class basis.
- X#
- X# -DLOCKSCR if for some reason you want a lockscreen function built into
- X# the window manager. Could be just as easily done by invoking a program,
- X# but some like to put all their eggs in one basket.
- X
- X# Use these macros if you want the RTL Neaten package.
- X# Also make sure that NEATEN_LIB points to the right place. See the README
- X# file for instructions (though you can just define this and give it a shot).
- X# DEFINES = -DSYSFILE=\"$(AWMDIR)$(PATHSEP)system.awmrc\" -DNEATEN
- X# LOCAL_LIBRARIES = $(NEATEN_ARCH) $(MENU_ARCH) $(XMULIB) $(XLIB)
- X
- X
- X# Use these macros if you don't want the RTL Neaten package.
- X DEFINES = -DSYSFILE=\"$(AWMDIR)$(PATHSEP)system.awmrc\" -DWMSTATE -DLOCKSCR
- X LOCAL_LIBRARIES = $(MENU_ARCH) $(XMULIB) $(XLIB)
- X LINTLIBS = $(LINTXLIB)
- X
- XSRCS= globals.c Beep.c Bindings.c CircleDown.c CircleUp.c\
- X Cursors.c Focus.c GetButton.c GridBox.c Iconify.c Icons.c Lower.c\
- X Menu.c Move.c MoveOpaque.c NewIconify.c Pause.c Push.c Error.c\
- X Raise.c Refresh.c Resize.c Restart.c RubberBand.c StoreBox.c \
- X StoreZap.c XError.c awm.c FocusChng.c Titlebar.c errHndlr.c \
- X Grab.c menu_sup.c Gadget.c support.c exp_path.c Neaten.c \
- X lockscreen.c Lock.c
- X
- XOBJS= gram.o lex.o globals.o Beep.o Bindings.o CircleDown.o CircleUp.o\
- X Cursors.o Focus.o GetButton.o GridBox.o Iconify.o Icons.o Lower.o\
- X Menu.o Move.o MoveOpaque.o NewIconify.o Pause.o Push.o Error.o\
- X Raise.o Refresh.o Resize.o Restart.o RubberBand.o StoreBox.o \
- X StoreZap.o XError.o awm.o FocusChng.o Titlebar.o errHndlr.o \
- X Grab.o menu_sup.o Gadget.o support.o exp_path.o Neaten.o \
- X lockscreen.o Lock.o
- X
- XComplexProgramTarget(awm)
- XNormalLintTarget($(SRCS) gram.c lex.c)
- X
- XInstallNonExec(system.awmrc, $(AWMDIR))
- X
- X$(MENU_ARCH)::
- X @echo Making menu package...
- X @(cd $(MENU_LIB); make CC=$(CC) CFLAGS="$(CFLAGS)")
- X @echo done.
- X
- X$(NEATEN_ARCH)::
- X cp Makefile.rtl $(NEATEN_LIB)/Makefile
- X @echo Making Neaten package
- X @(cd $(NEATEN_LIB); make -f Makefile)
- X @echo done.
- X
- Xclean::
- X @echo Cleaning menus...
- X @(cd $(MENU_LIB); make clean)
- X @echo done.
- X rm -f y.tab.h
- X
- Xnoident::
- X @echo Removing ident lines from awm...
- X @for i in $(SRCS) $(OTHERSRCS) $(HFILES); do \
- X sed -e '/#ident/D' < $$i > /tmp/x.$$i && \
- X mv /tmp/x.$$i $$i ; \
- X done
- X @(cd $(MENU_LIB); make noident)
- X @echo done.
- END_OF_FILE
- if test 2988 -ne `wc -c <'Imakefile'`; then
- echo shar: \"'Imakefile'\" unpacked with wrong size!
- fi
- # end of 'Imakefile'
- fi
- if test -f 'Lower.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'Lower.c'\"
- else
- echo shar: Extracting \"'Lower.c'\" \(2800 characters\)
- sed "s/^X//" >'Lower.c' <<'END_OF_FILE'
- X
- X
- X
- X#ifndef lint
- Xstatic char *rcsid_Lower_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/Lower.c,v 1.2 89/02/07 21:22:36 jkh Exp $";
- X#endif lint
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Digital Equipment
- X * Corporation not be used in advertising or publicity pertaining to
- X * distribution of the software without specific, written prior permission.
- X *
- X *
- X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- X * SOFTWARE.
- X */
- X
- X/*
- X * MODIFICATION HISTORY
- X *
- X * 000 -- M. Gancarz, DEC Ultrix Engineering Group
- X * 001 -- Loretta Guarino Reid, DEC Ultrix Engineering Group,
- X * Western Software Lab. Convert to X11.
- X * 002 -- Jordan Hubbard, Ardent Computer.
- X * Conversion to awm.
- X */
- X
- X#include "awm.h"
- X
- X/*ARGSUSED*/
- XBoolean Lower(window, mask, button, x, y)
- XWindow window; /* Event window. */
- Xint mask; /* Button/key mask. */
- Xint button; /* Button event detail. */
- Xint x, y; /* Event mouse position. */
- X{
- X AwmInfoPtr awi;
- X Entry("Lower")
- X
- X awi = GetAwmInfo(window);
- X if (!awi)
- X Leave(FALSE)
- X window = awi->frame ? awi->frame : awi->client;
- X /*
- X * If the window is not the root window, lower the window and return.
- X */
- X if (window != RootWindow(dpy, scr))
- X XLowerWindow(dpy, window);
- X Leave(FALSE)
- X}
- END_OF_FILE
- if test 2800 -ne `wc -c <'Lower.c'`; then
- echo shar: \"'Lower.c'\" unpacked with wrong size!
- fi
- # end of 'Lower.c'
- fi
- if test -f 'XError.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'XError.c'\"
- else
- echo shar: Extracting \"'XError.c'\" \(2698 characters\)
- sed "s/^X//" >'XError.c' <<'END_OF_FILE'
- X
- X
- X
- X#ifndef lint
- Xstatic char *rcsid_XError_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/XError.c,v 1.2 89/02/07 21:24:08 jkh Exp $";
- X#endif lint
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Digital Equipment
- X * Corporation not be used in advertising or publicity pertaining to
- X * distribution of the software without specific, written prior permission.
- X *
- X *
- X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- X * SOFTWARE.
- X */
- X
- X
- X
- X/*
- X * MODIFICATION HISTORY
- X *
- X * 000 -- M. Gancarz, DEC Ultrix Engineering Group
- X */
- X
- X#include "awm.h"
- X
- X/*ARGSUSED*/
- XXError(dpy, rep)
- XDisplay *dpy;
- XXErrorEvent *rep;
- X{
- X#ifdef DEBUG
- X char buffer[BUFSIZ];
- X XGetErrorText(dpy, rep->error_code, buffer, BUFSIZ);
- X fprintf(stderr, "awm: X error occurred during a awm operation.\n");
- X fprintf(stderr, " Description: '%s'\n", buffer);
- X fprintf(stderr, " Request code: %d\n", rep->request_code);
- X fprintf(stderr, " Request function: %d\n", rep->func);
- X fprintf(stderr, " Request window 0x%x\n", rep->window);
- X fprintf(stderr, " Error Serial #%d\n", rep->serial);
- X fprintf(stderr, " Current serial #%d\n", dpy->request);
- X#endif
- X}
- END_OF_FILE
- if test 2698 -ne `wc -c <'XError.c'`; then
- echo shar: \"'XError.c'\" unpacked with wrong size!
- fi
- # end of 'XError.c'
- fi
- if test -f 'bitmaps/hilite.bm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'bitmaps/hilite.bm'\"
- else
- echo shar: Extracting \"'bitmaps/hilite.bm'\" \(2202 characters\)
- sed "s/^X//" >'bitmaps/hilite.bm' <<'END_OF_FILE'
- X/*****************************************************************************/
- X/** Copyright 1988 by Evans & Sutherland Computer Corporation, **/
- X/** Salt Lake City, Utah **/
- X/** **/
- X/** All Rights Reserved **/
- X/** **/
- X/** Permission to use, copy, modify, and distribute this software and **/
- X/** its documentation for any purpose and without fee is hereby **/
- X/** granted, provided that the above copyright notice appear in all **/
- X/** copies and that both that copyright notice and this permis- **/
- X/** sion notice appear in supporting documentation, and that the **/
- X/** name of Evans & Sutherland not be used in advertising or publi- **/
- X/** city pertaining to distribution of the software without specif- **/
- X/** ic, written prior permission. **/
- X/** **/
- X/** EVANS & SUTHERLAND DISCLAIMS ALL WARRANTIES WITH REGARD TO **/
- X/** THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILI- **/
- X/** TY AND FITNESS, IN NO EVENT SHALL EVANS & SUTHERLAND BE LIABLE **/
- X/** FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAM- **/
- X/** AGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, **/
- X/** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS **/
- X/** ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PER- **/
- X/** FORMANCE OF THIS SOFTWARE. **/
- X/*****************************************************************************/
- X
- X#define hilite_width 16
- X#define hilite_height 16
- Xstatic char hilite_bits[] = {
- X 0x00, 0x00, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00,
- X 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00,
- X 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- END_OF_FILE
- if test 2202 -ne `wc -c <'bitmaps/hilite.bm'`; then
- echo shar: \"'bitmaps/hilite.bm'\" unpacked with wrong size!
- fi
- # end of 'bitmaps/hilite.bm'
- fi
- if test -f 'bitmaps/twm.focus.bm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'bitmaps/twm.focus.bm'\"
- else
- echo shar: Extracting \"'bitmaps/twm.focus.bm'\" \(2188 characters\)
- sed "s/^X//" >'bitmaps/twm.focus.bm' <<'END_OF_FILE'
- X
- X/*****************************************************************************/
- X/** Copyright 1988 by Evans & Sutherland Computer Corporation, **/
- X/** Salt Lake City, Utah **/
- X/** **/
- X/** All Rights Reserved **/
- X/** **/
- X/** Permission to use, copy, modify, and distribute this software and **/
- X/** its documentation for any purpose and without fee is hereby **/
- X/** granted, provided that the above copyright notice appear in all **/
- X/** copies and that both that copyright notice and this permis- **/
- X/** sion notice appear in supporting documentation, and that the **/
- X/** name of Evans & Sutherland not be used in advertising or publi- **/
- X/** city pertaining to distribution of the software without specif- **/
- X/** ic, written prior permission. **/
- X/** **/
- X/** EVANS & SUTHERLAND DISCLAIMS ALL WARRANTIES WITH REGARD TO **/
- X/** THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILI- **/
- X/** TY AND FITNESS, IN NO EVENT SHALL EVANS & SUTHERLAND BE LIABLE **/
- X/** FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAM- **/
- X/** AGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, **/
- X/** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS **/
- X/** ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PER- **/
- X/** FORMANCE OF THIS SOFTWARE. **/
- X/*****************************************************************************/
- X
- X#define focus_width 16
- X#define focus_height 15
- Xstatic char focus_bits[] = {
- X 0xff, 0x7f, 0x01, 0x40, 0x01, 0x40, 0x01, 0x40, 0xfd, 0x5f, 0x55, 0x55,
- X 0xfd, 0x5f, 0x55, 0x55, 0xfd, 0x5f, 0x05, 0x50, 0xfd, 0x5f, 0x01, 0x40,
- X 0x01, 0x40, 0x01, 0x40, 0xff, 0x7f};
- END_OF_FILE
- if test 2188 -ne `wc -c <'bitmaps/twm.focus.bm'`; then
- echo shar: \"'bitmaps/twm.focus.bm'\" unpacked with wrong size!
- fi
- # end of 'bitmaps/twm.focus.bm'
- fi
- if test -f 'bitmaps/twm.hilite.bm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'bitmaps/twm.hilite.bm'\"
- else
- echo shar: Extracting \"'bitmaps/twm.hilite.bm'\" \(2202 characters\)
- sed "s/^X//" >'bitmaps/twm.hilite.bm' <<'END_OF_FILE'
- X/*****************************************************************************/
- X/** Copyright 1988 by Evans & Sutherland Computer Corporation, **/
- X/** Salt Lake City, Utah **/
- X/** **/
- X/** All Rights Reserved **/
- X/** **/
- X/** Permission to use, copy, modify, and distribute this software and **/
- X/** its documentation for any purpose and without fee is hereby **/
- X/** granted, provided that the above copyright notice appear in all **/
- X/** copies and that both that copyright notice and this permis- **/
- X/** sion notice appear in supporting documentation, and that the **/
- X/** name of Evans & Sutherland not be used in advertising or publi- **/
- X/** city pertaining to distribution of the software without specif- **/
- X/** ic, written prior permission. **/
- X/** **/
- X/** EVANS & SUTHERLAND DISCLAIMS ALL WARRANTIES WITH REGARD TO **/
- X/** THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILI- **/
- X/** TY AND FITNESS, IN NO EVENT SHALL EVANS & SUTHERLAND BE LIABLE **/
- X/** FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAM- **/
- X/** AGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, **/
- X/** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS **/
- X/** ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PER- **/
- X/** FORMANCE OF THIS SOFTWARE. **/
- X/*****************************************************************************/
- X
- X#define hilite_width 16
- X#define hilite_height 16
- Xstatic char hilite_bits[] = {
- X 0x00, 0x00, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00,
- X 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00,
- X 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- END_OF_FILE
- if test 2202 -ne `wc -c <'bitmaps/twm.hilite.bm'`; then
- echo shar: \"'bitmaps/twm.hilite.bm'\" unpacked with wrong size!
- fi
- # end of 'bitmaps/twm.hilite.bm'
- fi
- if test -f 'bitmaps/twm.iconify.bm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'bitmaps/twm.iconify.bm'\"
- else
- echo shar: Extracting \"'bitmaps/twm.iconify.bm'\" \(2194 characters\)
- sed "s/^X//" >'bitmaps/twm.iconify.bm' <<'END_OF_FILE'
- X
- X/*****************************************************************************/
- X/** Copyright 1988 by Evans & Sutherland Computer Corporation, **/
- X/** Salt Lake City, Utah **/
- X/** **/
- X/** All Rights Reserved **/
- X/** **/
- X/** Permission to use, copy, modify, and distribute this software and **/
- X/** its documentation for any purpose and without fee is hereby **/
- X/** granted, provided that the above copyright notice appear in all **/
- X/** copies and that both that copyright notice and this permis- **/
- X/** sion notice appear in supporting documentation, and that the **/
- X/** name of Evans & Sutherland not be used in advertising or publi- **/
- X/** city pertaining to distribution of the software without specif- **/
- X/** ic, written prior permission. **/
- X/** **/
- X/** EVANS & SUTHERLAND DISCLAIMS ALL WARRANTIES WITH REGARD TO **/
- X/** THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILI- **/
- X/** TY AND FITNESS, IN NO EVENT SHALL EVANS & SUTHERLAND BE LIABLE **/
- X/** FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAM- **/
- X/** AGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, **/
- X/** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS **/
- X/** ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PER- **/
- X/** FORMANCE OF THIS SOFTWARE. **/
- X/*****************************************************************************/
- X
- X#define iconify_width 16
- X#define iconify_height 15
- Xstatic char iconify_bits[] = {
- X 0xff, 0x7f, 0x01, 0x40, 0x7d, 0x5f, 0x7d, 0x5f, 0x7d, 0x5f, 0x7d, 0x5f,
- X 0x7d, 0x5f, 0x01, 0x40, 0x7d, 0x5f, 0x7d, 0x5f, 0x7d, 0x5f, 0x7d, 0x5f,
- X 0x7d, 0x5f, 0x01, 0x40, 0xff, 0x7f};
- END_OF_FILE
- if test 2194 -ne `wc -c <'bitmaps/twm.iconify.bm'`; then
- echo shar: \"'bitmaps/twm.iconify.bm'\" unpacked with wrong size!
- fi
- # end of 'bitmaps/twm.iconify.bm'
- fi
- if test -f 'bitmaps/twm.pull.bm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'bitmaps/twm.pull.bm'\"
- else
- echo shar: Extracting \"'bitmaps/twm.pull.bm'\" \(2197 characters\)
- sed "s/^X//" >'bitmaps/twm.pull.bm' <<'END_OF_FILE'
- X
- X/*****************************************************************************/
- X/** Copyright 1988 by Evans & Sutherland Computer Corporation, **/
- X/** Salt Lake City, Utah **/
- X/** **/
- X/** All Rights Reserved **/
- X/** **/
- X/** Permission to use, copy, modify, and distribute this software and **/
- X/** its documentation for any purpose and without fee is hereby **/
- X/** granted, provided that the above copyright notice appear in all **/
- X/** copies and that both that copyright notice and this permis- **/
- X/** sion notice appear in supporting documentation, and that the **/
- X/** name of Evans & Sutherland not be used in advertising or publi- **/
- X/** city pertaining to distribution of the software without specif- **/
- X/** ic, written prior permission. **/
- X/** **/
- X/** EVANS & SUTHERLAND DISCLAIMS ALL WARRANTIES WITH REGARD TO **/
- X/** THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILI- **/
- X/** TY AND FITNESS, IN NO EVENT SHALL EVANS & SUTHERLAND BE LIABLE **/
- X/** FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAM- **/
- X/** AGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, **/
- X/** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS **/
- X/** ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PER- **/
- X/** FORMANCE OF THIS SOFTWARE. **/
- X/*****************************************************************************/
- X
- X#define pull_width 16
- X#define pull_height 16
- Xstatic char pull_bits[] = {
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x0c, 0x00, 0x1c, 0xff, 0x3f,
- X 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0xff, 0x3f, 0x00, 0x1c, 0x00, 0x0c,
- X 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- END_OF_FILE
- if test 2197 -ne `wc -c <'bitmaps/twm.pull.bm'`; then
- echo shar: \"'bitmaps/twm.pull.bm'\" unpacked with wrong size!
- fi
- # end of 'bitmaps/twm.pull.bm'
- fi
- if test -f 'bitmaps/twm.resize.bm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'bitmaps/twm.resize.bm'\"
- else
- echo shar: Extracting \"'bitmaps/twm.resize.bm'\" \(2191 characters\)
- sed "s/^X//" >'bitmaps/twm.resize.bm' <<'END_OF_FILE'
- X
- X/*****************************************************************************/
- X/** Copyright 1988 by Evans & Sutherland Computer Corporation, **/
- X/** Salt Lake City, Utah **/
- X/** **/
- X/** All Rights Reserved **/
- X/** **/
- X/** Permission to use, copy, modify, and distribute this software and **/
- X/** its documentation for any purpose and without fee is hereby **/
- X/** granted, provided that the above copyright notice appear in all **/
- X/** copies and that both that copyright notice and this permis- **/
- X/** sion notice appear in supporting documentation, and that the **/
- X/** name of Evans & Sutherland not be used in advertising or publi- **/
- X/** city pertaining to distribution of the software without specif- **/
- X/** ic, written prior permission. **/
- X/** **/
- X/** EVANS & SUTHERLAND DISCLAIMS ALL WARRANTIES WITH REGARD TO **/
- X/** THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILI- **/
- X/** TY AND FITNESS, IN NO EVENT SHALL EVANS & SUTHERLAND BE LIABLE **/
- X/** FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAM- **/
- X/** AGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, **/
- X/** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS **/
- X/** ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PER- **/
- X/** FORMANCE OF THIS SOFTWARE. **/
- X/*****************************************************************************/
- X
- X#define resize_width 16
- X#define resize_height 15
- Xstatic char resize_bits[] = {
- X 0xff, 0x7f, 0x01, 0x40, 0x01, 0x40, 0x01, 0x40, 0xff, 0x47, 0x01, 0x44,
- X 0x01, 0x44, 0x01, 0x44, 0x7f, 0x44, 0x41, 0x44, 0x41, 0x44, 0x41, 0x44,
- X 0x41, 0x44, 0x41, 0x44, 0xff, 0x7f};
- END_OF_FILE
- if test 2191 -ne `wc -c <'bitmaps/twm.resize.bm'`; then
- echo shar: \"'bitmaps/twm.resize.bm'\" unpacked with wrong size!
- fi
- # end of 'bitmaps/twm.resize.bm'
- fi
- if test -f 'bitmaps/twm.twm.bm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'bitmaps/twm.twm.bm'\"
- else
- echo shar: Extracting \"'bitmaps/twm.twm.bm'\" \(2556 characters\)
- sed "s/^X//" >'bitmaps/twm.twm.bm' <<'END_OF_FILE'
- X/*****************************************************************************/
- X/** Copyright 1988 by Evans & Sutherland Computer Corporation, **/
- X/** Salt Lake City, Utah **/
- X/** **/
- X/** All Rights Reserved **/
- X/** **/
- X/** Permission to use, copy, modify, and distribute this software and **/
- X/** its documentation for any purpose and without fee is hereby **/
- X/** granted, provided that the above copyright notice appear in all **/
- X/** copies and that both that copyright notice and this permis- **/
- X/** sion notice appear in supporting documentation, and that the **/
- X/** name of Evans & Sutherland not be used in advertising or publi- **/
- X/** city pertaining to distribution of the software without specif- **/
- X/** ic, written prior permission. **/
- X/** **/
- X/** EVANS & SUTHERLAND DISCLAIMS ALL WARRANTIES WITH REGARD TO **/
- X/** THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILI- **/
- X/** TY AND FITNESS, IN NO EVENT SHALL EVANS & SUTHERLAND BE LIABLE **/
- X/** FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAM- **/
- X/** AGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, **/
- X/** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS **/
- X/** ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PER- **/
- X/** FORMANCE OF THIS SOFTWARE. **/
- X/*****************************************************************************/
- X
- X#define twm_width 48
- X#define twm_height 15
- Xstatic char twm_bits[] = {
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x0f,
- X 0xfe, 0xff, 0xff, 0xff, 0xff, 0x1f, 0x80, 0x01, 0x00, 0x00, 0x00, 0x00,
- X 0xc0, 0x0c, 0x0c, 0xcc, 0xc0, 0x00, 0xc0, 0x0c, 0x0c, 0xcc, 0xc0, 0x00,
- X 0x60, 0x18, 0x1e, 0xe6, 0xe1, 0x01, 0x60, 0x18, 0x1e, 0xe6, 0xe1, 0x01,
- X 0x30, 0x30, 0x33, 0x33, 0x33, 0x03, 0x30, 0x30, 0x33, 0x33, 0x33, 0x03,
- X 0x18, 0xe0, 0xe1, 0x19, 0x1e, 0x06, 0x18, 0xe0, 0xe1, 0x19, 0x1e, 0x06,
- X 0x0c, 0xc0, 0xc0, 0x0c, 0x0c, 0x0c, 0x0c, 0xc0, 0xc0, 0x0c, 0x0c, 0x0c,
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- END_OF_FILE
- if test 2556 -ne `wc -c <'bitmaps/twm.twm.bm'`; then
- echo shar: \"'bitmaps/twm.twm.bm'\" unpacked with wrong size!
- fi
- # end of 'bitmaps/twm.twm.bm'
- fi
- if test -f 'errHndlr.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'errHndlr.c'\"
- else
- echo shar: Extracting \"'errHndlr.c'\" \(2577 characters\)
- sed "s/^X//" >'errHndlr.c' <<'END_OF_FILE'
- X
- X#ifndef lint
- Xstatic char *rcsid_errHndlr_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/errHndlr.c,v 1.2 89/02/07 21:24:38 jkh Exp $";
- X#endif lint
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X#include <stdio.h>
- X#include "X11/Xlib.h"
- X
- Xint errorStatus = False;
- X
- X#ifdef DEBUG
- Xvoid debug(s, x1, x2, x3, x4, x5, x6, x7, x8)
- Xchar *s;
- Xlong x1, x2, x3, x4, x5, x6, x7, x8;
- X{
- X static FILE *con = 0;
- X
- X if (!con)
- X con = fopen("/dev/console", "w");
- X fprintf(con, s, x1, x2, x3, x4, x5, x6, x7, x8);
- X}
- X#endif
- X
- X/*ARGSUSED*/
- Xint ErrorHandler (dpy, event)
- X Display *dpy;
- X XErrorEvent *event;
- X{
- X#ifdef DEBUG
- X char *buffer[BUFSIZ];
- X XGetErrorText(dpy, event->error_code, buffer, BUFSIZ);
- X (void) debug("Hey!\n");
- X (void) debug("X Error: %s\n", buffer);
- X (void) debug(" Request Major code: %d\n", event->request_code);
- X (void) debug(" Request Minor code: %d\n", event->minor_code);
- X (void) debug(" ResourceId 0x%x\n", event->resourceid);
- X (void) debug(" Error Serial #%d\n", event->serial);
- X (void) debug(" Current Serial #%d\n", dpy->request);
- X#endif
- X errorStatus = True;
- X return 0;
- X}
- X
- Xstatic char *eventname[] = {
- X "zero",
- X "one",
- X "KeyPress",
- X "KeyRelease",
- X "ButtonPress",
- X "ButtonRelease",
- X "MotionNotify",
- X "EnterNotify",
- X "LeaveNotify",
- X "FocusIn",
- X "FocusOut",
- X "KeymapNotify",
- X "Expose",
- X "GraphicsExpose",
- X "NoExpose",
- X "VisibilityNotify",
- X "CreateNotify",
- X "DestroyNotify",
- X "UnmapNotify",
- X "MapNotify",
- X "MapRequest",
- X "ReparentNotify",
- X "ConfigureNotify",
- X "ConfigureRequest",
- X "GravityNotify",
- X "ResizeRequest",
- X "CirculateNotify",
- X "CirculateRequest",
- X "PropertyNotify",
- X "SelectionClear",
- X "SelectionRequest",
- X "SelectionNotify",
- X "ColormapNotify",
- X "ClientMessage",
- X "MappingNotify",
- X};
- X
- Xvoid print_event_info(s, ev)
- Xchar *s;
- XXEvent *ev;
- X{
- X fprintf(stderr, "%s: EVENT %s(%d) on %x\n", s, eventname[ev->type],
- X ev->type, ev->xany.window);
- X}
- END_OF_FILE
- if test 2577 -ne `wc -c <'errHndlr.c'`; then
- echo shar: \"'errHndlr.c'\" unpacked with wrong size!
- fi
- # end of 'errHndlr.c'
- fi
- if test -f 'lex.l' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'lex.l'\"
- else
- echo shar: Extracting \"'lex.l'\" \(2334 characters\)
- sed "s/^X//" >'lex.l' <<'END_OF_FILE'
- X%{
- X
- X
- X#include <X11/copyright.h>
- X
- X
- X/*
- X * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Digital Equipment
- X * Corporation not be used in advertising or publicity pertaining to
- X * distribution of the software without specific, written prior permission.
- X *
- X *
- X * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- X * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- X * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- X * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- X * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- X * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- X * SOFTWARE.
- X */
- X
- X
- X
- X
- X/*
- X * MODIFICATION HISTORY
- X *
- X * 000 -- M. Gancarz, DEC Ultrix Engineering Group
- X * 001 -- Jordan Hubbard, Ardent Computer
- X * Handle comments differently.
- X */
- X
- X#include "y.tab.h"
- X#include "X11/Xos.h"
- X
- X#undef YYLMAX
- X
- X#ifdef LEXBUFSIZ
- X#define YYLMAX LEXBUFSIZ
- X#else
- X#define YYLMAX 1024
- X#endif
- X
- Xchar *dequote();
- Xchar *stash();
- X
- Xextern int Lineno;
- X
- X%}
- XW [ \t]+
- X%%
- X
- X#.*\n { return(COMMENT); } /* Comments. */
- X\\\n { Lineno++; } /* Continuation. */
- X{W} { ; } /* Whitespace. */
- X[^ \"\t\n#=\^\!\|\(\)\[\]\{\}:;]+ { yylval.sval=stash(yytext);return(STRING); }
- X\"[^\"]*\" { yylval.sval=stash(dequote(yytext));
- X return(STRING); }
- X\n { return(NL); }
- X. { return(*yytext); }
- X
- X%%
- X
- X/*
- X * Remove the quotes enclosing a quoted string.
- X */
- Xchar *
- Xdequote(s)
- Xchar *s;
- X{
- X char *p;
- X
- X ++s;
- X p = rindex(s, '"');
- X *p = '\0';
- X return(s);
- X}
- X
- X/*
- X * Save string away in memory and return a pointer to it. If
- X * no space could be found, quit with a fatal error.
- X */
- Xchar *stash(s)
- Xchar *s;
- X{
- X char *ptr;
- X char *malloc();
- X
- X if (!s || !strlen(s))
- X return(NULL);
- X ptr = malloc(strlen(s) + 1);
- X if (ptr == NULL) {
- X Error("out of space");
- X }
- X return(strcpy(ptr, s));
- X}
- END_OF_FILE
- if test 2334 -ne `wc -c <'lex.l'`; then
- echo shar: \"'lex.l'\" unpacked with wrong size!
- fi
- # end of 'lex.l'
- fi
- if test -f 'menus/eventstack.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'menus/eventstack.c'\"
- else
- echo shar: Extracting \"'menus/eventstack.c'\" \(2636 characters\)
- sed "s/^X//" >'menus/eventstack.c' <<'END_OF_FILE'
- X
- X#ifndef lint
- X static char sccs_id[] = "@(#)eventstack.c 2.1 12/16/87 Siemens Corporate Research and Support, Inc.";
- X#endif
- X
- X
- X/*
- X RTL Menu Package Version 1.0
- X by Joe Camaratta and Mike Berman, Siemens RTL, Princeton NJ, 1987
- X
- X eventstack.c: stack implementation for X events
- X */
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X
- X Copyright 1987 by
- X Siemens Corporate Research and Support, Inc., Princeton, New Jersey
- X
- X Permission to use, copy, modify, and distribute this software
- X and its documentation for any purpose and without fee is
- X hereby granted, provided that the above copyright notice
- X appear in all copies and that both that copyright notice and
- X this permission notice appear in supporting documentation, and
- X that the name of Siemens not be used in advertising or
- X publicity pertaining to distribution of the software without
- X specific, written prior permission. Siemens makes no
- X representations about the suitability of this software for any
- X purpose. It is provided "as is" without express or implied
- X warranty.
- X
- X Almost totally re-written by Jordan Hubbard, Ardent computer corp.
- X Previous code did not pass more strict compilers.
- X */
- X
- X#include <stdio.h>
- X#include "dbug.h"
- X#include "X11/Xlib.h"
- X#include "eventstack.h"
- X
- Xextern char *malloc();
- X
- Xvoid PushEvent(event, Eq)
- XXEvent *event;
- Xstruct Ev_q **Eq;
- X{
- X struct Ev_q *ptr;
- X Entry("PushEvent")
- X
- X if (!*Eq) {
- X *Eq = ptr = (struct Ev_q *)malloc(sizeof(struct Ev_q));
- X ptr->prev = 0;
- X }
- X else {
- X ptr = (struct Ev_q *)malloc(sizeof(struct Ev_q));
- X ptr->prev = *Eq;
- X *Eq = ptr;
- X }
- X ptr->event = (XEvent *)malloc(sizeof(XEvent));
- X bcopy(ptr->event, event, sizeof(XEvent));
- X Leave_void
- X}
- X
- XXEvent *PopEvent(Eq)
- Xstruct Ev_q **Eq;
- X{
- X struct Ev_q *ptr;
- X
- X Entry("PopEvent")
- X
- X if (*Eq) {
- X ptr = *Eq;
- X *Eq = ptr->prev;
- X free(ptr);
- X Leave(ptr->event)
- X }
- X else
- X Leave((XEvent *)0)
- X}
- END_OF_FILE
- if test 2636 -ne `wc -c <'menus/eventstack.c'`; then
- echo shar: \"'menus/eventstack.c'\" unpacked with wrong size!
- fi
- # end of 'menus/eventstack.c'
- fi
- if test -f 'menus/null_icon.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'menus/null_icon.h'\"
- else
- echo shar: Extracting \"'menus/null_icon.h'\" \(103 characters\)
- sed "s/^X//" >'menus/null_icon.h' <<'END_OF_FILE'
- X
- X#define null_icon_width 1
- X#define null_icon_height 1
- Xstatic char null_icon_bits[] =
- X{
- X 0x00
- X};
- X
- X
- X
- END_OF_FILE
- if test 103 -ne `wc -c <'menus/null_icon.h'`; then
- echo shar: \"'menus/null_icon.h'\" unpacked with wrong size!
- fi
- # end of 'menus/null_icon.h'
- fi
- if test -f 'menus/rtlmenu.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'menus/rtlmenu.h'\"
- else
- echo shar: Extracting \"'menus/rtlmenu.h'\" \(2075 characters\)
- sed "s/^X//" >'menus/rtlmenu.h' <<'END_OF_FILE'
- X
- X/*
- X#ifndef lint
- Xstatic char sccs_id[] = "@(#)rtlmenu.h 2.1 12/16/87 Siemens Corporate Research and Support, Inc.";
- X#endif
- X*/
- X
- X
- X/*
- X RTL Menu Package Version 1.0
- X by Joe Camaratta and Mike Berman, Siemens RTL, Princeton NJ, 1987
- X
- X rtlmenu.h: definitions for rtlmenu user
- X*/
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X
- XCopyright 1987 by
- X Siemens Corporate Research and Support, Inc., Princeton, New Jersey
- X
- XPermission to use, copy, modify, and distribute this software
- Xand its documentation for any purpose and without fee is
- Xhereby granted, provided that the above copyright notice
- Xappear in all copies and that both that copyright notice and
- Xthis permission notice appear in supporting documentation, and
- Xthat the name of Siemens not be used in advertising or
- Xpublicity pertaining to distribution of the software without
- Xspecific, written prior permission. Siemens makes no
- Xrepresentations about the suitability of this software for any
- Xpurpose. It is provided "as is" without express or implied
- Xwarranty.
- X
- X*/
- X
- X#ifndef RTL_INCLUDE
- X#define RTL_INCLUDE
- X#include "std_defs.h"
- X
- Xstruct _RTLPoint
- X{
- X int x, y;
- X};
- X
- Xtypedef struct _RTLPoint RTLPoint;
- Xtypedef pointer RTLMenu;
- Xtypedef pointer RTLMenuItem;
- X
- XRTLMenu RTLMenu_Create();
- XRTLMenuItem RTLMenu_Append_Call();
- XRTLMenuItem RTLMenu_Append_Checkback();
- XRTLMenuItem RTLMenu_Append_Submenu();
- X
- X#include "rtlmnu.opt.h"
- X#endif RTL_INCLUDE
- END_OF_FILE
- if test 2075 -ne `wc -c <'menus/rtlmenu.h'`; then
- echo shar: \"'menus/rtlmenu.h'\" unpacked with wrong size!
- fi
- # end of 'menus/rtlmenu.h'
- fi
- if test -f 'menus/std_defs.h' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'menus/std_defs.h'\"
- else
- echo shar: Extracting \"'menus/std_defs.h'\" \(2338 characters\)
- sed "s/^X//" >'menus/std_defs.h' <<'END_OF_FILE'
- X
- X/*
- X#ifndef lint
- Xstatic char sccs_id[] = "@(#)std_defs.h 2.5 4/13/87 Copyright (c) 1987, Siemens Corporate Research and Support, Inc.";
- X#endif
- X*/
- X
- X
- X/*
- X RTL Menu Package Version 1.0
- X by Joe Camaratta and Mike Berman, Siemens RTL, Princeton NJ, 1987
- X
- X std_defs.h: standard definitions shared among menu programs.
- X*/
- X
- X#include <X11/copyright.h>
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X */
- X
- X/*
- X
- XCopyright 1987 by
- X Siemens Corporate Research and Support, Inc., Princeton, New Jersey
- X
- XPermission to use, copy, modify, and distribute this
- Xsoftware and its documentation for any purpose and without
- Xfee is hereby granted, provided that the above copyright
- Xnotice appear in all copies and that both that copyright
- Xnotice and this permission notice appear in supporting
- Xdocumentation, and that the name of Siemens not be used in
- Xadvertising or publicity pertaining to distribution of the
- Xsoftware without specific, written prior permission.
- XSiemens makes no representations about the suitability of
- Xthis software for any purpose. It is provided "as is"
- Xwithout express or implied warranty.
- X
- X*/
- X
- X
- X#ifndef STD_DEFS
- X#define STD_DEFS
- X
- X#include <X11/Intrinsic.h>
- X
- X/* useful macros
- X */
- Xtypedef char *pointer;
- X
- Xextern char *malloc();
- X#define allocate(type, quan) ( (type *) malloc(sizeof(type) * (quan)) )
- X
- X#define FOREVER for (;;)
- X
- X
- X/* initial pointer value
- X */
- X#ifndef NULL
- X#define NULL 0
- X#endif
- X
- X#ifndef TRUE
- X#define TRUE 1
- X#endif
- X
- X#ifndef FALSE
- X#define FALSE 0
- X#endif
- X
- X/* VoidFunc type definition
- X */
- Xtypedef void (*VoidFunc)();
- X
- X
- X/* minimal error status return values
- X */
- X#define SUCCESS 0
- X#define FAILURE -1
- X
- X#define ABS(val) \
- X ( ( (val) < 0 ) ? -(val) : (val) )
- X
- X#endif
- END_OF_FILE
- if test 2338 -ne `wc -c <'menus/std_defs.h'`; then
- echo shar: \"'menus/std_defs.h'\" unpacked with wrong size!
- fi
- # end of 'menus/std_defs.h'
- fi
- if test -f 'support.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'support.c'\"
- else
- echo shar: Extracting \"'support.c'\" \(2427 characters\)
- sed "s/^X//" >'support.c' <<'END_OF_FILE'
- X
- X
- X
- X#ifndef lint
- Xstatic char *rcsid_support_c = "$Header: /usr/graph2/X11.3/contrib/windowmgrs/awm/RCS/support.c,v 1.2 89/02/07 21:25:47 jkh Exp $";
- X#endif lint
- X
- X#include "X11/copyright.h"
- X/*
- X *
- X * Copyright 1987, 1988 by Ardent Computer Corporation, Sunnyvale, Ca.
- X *
- X * Copyright 1987 by Jordan Hubbard.
- X *
- X *
- X * All Rights Reserved
- X *
- X * Permission to use, copy, modify, and distribute this software and its
- X * documentation for any purpose and without fee is hereby granted,
- X * provided that the above copyright notice appear in all copies and that
- X * both that copyright notice and this permission notice appear in
- X * supporting documentation, and that the name of Ardent Computer
- X * Corporation or Jordan Hubbard not be used in advertising or publicity
- X * pertaining to distribution of the software without specific, written
- X * prior permission.
- X *
- X * REVISION HISTORY:
- X *
- X * 1.2 -- Version of strlen() that accepts NULL strings added (#ifdef it
- X * in if your system needs it).
- X */
- X
- X#include "support.h"
- X#include <stdio.h>
- X
- Xint _rtn_level;
- Xint _rtn_trace;
- X
- Xstatic struct func_stack {
- X char *rtn_name;
- X struct func_stack *next;
- X} *Head;
- X
- Xchar *curr_rtn()
- X{
- X if (!Head)
- X return((char *)0);
- X else
- X return(Head->rtn_name);
- X}
- X
- Xvoid push_rtn(s)
- Xregister char *s;
- X{
- X if (!Head) {
- X Head = (struct func_stack *)malloc(sizeof(struct func_stack));
- X if (!Head) {
- X fprintf(stderr, "Couldn't malloc new func_stack entry!\n");
- X exit(1);
- X }
- X Head->rtn_name = s;
- X Head->next = 0;
- X }
- X else {
- X struct func_stack *ptr;
- X
- X ptr = (struct func_stack *)malloc(sizeof(struct func_stack));
- X if (!ptr) {
- X fprintf(stderr, "Couldn't malloc new func_stack entry!\n");
- X exit(1);
- X }
- X ptr->rtn_name = s;
- X ptr->next = Head;
- X Head = ptr;
- X }
- X _rtn_level++;
- X if (_rtn_trace) {
- X int i;
- X
- X for (i = 0; i < _rtn_level; i++)
- X putchar('\t');
- X printf("%s(%d)\n", Head->rtn_name, _rtn_level);
- X }
- X}
- X
- Xvoid pop_rtn()
- X{
- X struct func_stack *ptr;
- X
- X if (!Head)
- X return;
- X ptr = Head;
- X Head = Head->next;
- X free(ptr);
- X _rtn_level--;
- X}
- X
- X/*
- X * Some systems retch when you pass strlen() a NULL pointer.
- X * Here's a way of getting around it.
- X */
- X
- X#if defined(hlh) || defined(titan)
- Xstrlen(s)
- Xchar *s;
- X{
- X int count = 0;
- X
- X if (s == 0)
- X return(0);
- X while (*s++)
- X count++;
- X return(count);
- X}
- X#endif /* hlh */
- END_OF_FILE
- if test 2427 -ne `wc -c <'support.c'`; then
- echo shar: \"'support.c'\" unpacked with wrong size!
- fi
- # end of 'support.c'
- fi
- if test -f 'twm.Xdefaults' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'twm.Xdefaults'\"
- else
- echo shar: Extracting \"'twm.Xdefaults'\" \(613 characters\)
- sed "s/^X//" >'twm.Xdefaults' <<'END_OF_FILE'
- Xawm.icon.font: vtsingle
- Xawm.icon.pixmap: blank.bm
- Xawm.popup.font: fg-22
- Xawm.windowName.offset: 16
- Xawm.title.height: 16
- Xawm.title.font: vtsingle
- Xawm.title.boldFont: vtsingle
- Xawm.title.boldPixmap: twm.hilite.bm
- Xawm.title.push: false
- Xawm.path: /usr/src/X.V11R2/clients/awm/bitmaps
- Xawm.delta: 3
- Xawm.freeze: on
- Xawm.grid: on
- Xawm.zap: off
- Xawm.autoraise: off
- Xawm.hilite: on
- Xawm.titles: on
- Xawm.gadgets: on
- Xawm.wall: off
- Xawm.warpOnRaise: off
- Xawm.warpOnDeIconify: off
- Xawm.warpOnIconify: off
- Xawm.frameFocus: on
- Xawm.rootResizeBox: on
- Xawm.border.hilite: off
- Xawm.gadget.border: 0
- Xawm.icon.hPad: 2
- Xawm.icon.vPad: 5
- Xawm.volume: 4
- END_OF_FILE
- if test 613 -ne `wc -c <'twm.Xdefaults'`; then
- echo shar: \"'twm.Xdefaults'\" unpacked with wrong size!
- fi
- # end of 'twm.Xdefaults'
- fi
- echo shar: End of archive 11 \(of 12\).
- cp /dev/null ark11isdone
- MISSING=""
- for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
- if test ! -f ark${I}isdone ; then
- MISSING="${MISSING} ${I}"
- fi
- done
- if test "${MISSING}" = "" ; then
- echo You have unpacked all 12 archives.
- rm -f ark[1-9]isdone ark[1-9][0-9]isdone
- else
- echo You still need to unpack the following archives:
- echo " " ${MISSING}
- fi
- ## End of shell archive.
- exit 0
- --
- Mike Wexler(wyse!mikew) Phone: (408)433-1000 x1330
- Moderator of comp.sources.x
-